home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
prog_d
/
wptools1.zip
/
DEMO
/
MDI_PRJ
/
CHILDWIN.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1996-03-29
|
1KB
|
54 lines
unit Childwin;
interface
uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, WPRuler,
WpWinCtr, WPRich, WPTBar, WPStatus;
type
TMDIChild = class(TForm)
WPRichText1: TWPRichText;
WPRuler1: TWPRuler;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure WPRichText1Change(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
property Memo : TWPRichText read WPRichText1; { NEW }
end;
var
GlobalToolBar : TWPToolBar; {NEW} { uses WPTBar and WPStatus }
GlobalStatusBar : TWPStatusBarBasic; {NEW}
implementation
{$R *.DFM}
procedure TMDIChild.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TMDIChild.FormCreate(Sender: TObject);
begin
WPRichText1.WpToolBar := GlobalToolBar; {NEW}
WPRichText1.StatusBar := GlobalStatusBar;
end;
procedure TMDIChild.WPRichText1Change(Sender: TObject);
var x : integer;
begin
x:=0;
end;
procedure TMDIChild.FormActivate(Sender: TObject);
begin
Memo.SetFocus; {NEW}
end;
end.